#delimit;
/* Replicates Table 2 : OLS Estimates of Effect of Expectations on Educational Attainment */;

eststo clear;
qui eststo: reg Y T1 if sample, cluster(sch_id);
estadd local tc "No"; estadd local ss "No"; estadd local gpa "No"; 
estadd local sfe "No"; estadd local tfe "No"; estadd scalar nst = round(e(N),10);
qui eststo: reg Y T2  if sample, cluster(sch_id);
estadd local tc "No"; estadd local ss "No"; estadd local gpa "No"; 
estadd local sfe "No"; estadd local tfe "No"; estadd scalar nst = round(e(N),10);
qui eststo: reg Y T1 T2 if sample, cluster(sch_id);
estadd local tc "No"; estadd local ss "No"; estadd local gpa "No"; 
estadd local sfe "No"; estadd local tfe "No"; estadd scalar nst = round(e(N),10);
qui eststo: reg Y T1 T2 $spec1 if sample, cluster(sch_id);
estadd local tc "Yes"; estadd local ss "No"; estadd local gpa "No"; 
estadd local sfe "No"; estadd local tfe "No"; estadd scalar nst = round(e(N),10);
qui eststo: reg Y T1 T2 $spec2 if sample, cluster(sch_id);
estadd local tc "Yes"; estadd local ss "Yes"; estadd local gpa "No"; 
estadd local sfe "No"; estadd local tfe "No"; estadd scalar nst = round(e(N),10);
qui eststo: reg Y T1 T2 $spec3 if sample, cluster(sch_id);
estadd local tc "Yes"; estadd local ss "Yes"; estadd local gpa "Yes"; 
estadd local sfe "No"; estadd local tfe "No"; estadd scalar nst = round(e(N),10);
qui eststo: reg Y T1 T2 $spec3 if sample, a(sch_id) cluster(sch_id);
estadd local tc "Yes"; estadd local ss "Yes"; estadd local gpa "Yes"; 
estadd local sfe "Yes"; estadd local tfe "No"; estadd scalar nst = round(e(N),10);
qui eststo: reghdfe Y T1 T2 $spec3 if sample, a(tidmth tideng) cluster(sch_id);
estadd local tc "Yes"; estadd local ss "Yes"; estadd local gpa "Yes"; 
estadd local sfe "No"; estadd local tfe "Yes"; estadd scalar nst = round(e(N),10);
capture drop sample1;
gen sample1 = e(sample);
qui eststo: reghdfe Y T1 T2 $spec3 if sample==1 & sample1==1, a(sch_id) cluster(sch_id);
estadd local tc "Yes"; estadd local ss "Yes"; estadd local gpa "Yes"; 
estadd local sfe "Yes"; estadd local tfe "No"; estadd scalar nst = round(e(N),10);
qui eststo: reg Y T1 T2 $spec3 i.sch_id if cbyrace6==1 & sample==1, cluster(sch_id);
estadd local tc "Yes"; estadd local ss "Yes"; estadd local gpa "Yes"; 
estadd local sfe "Yes"; estadd local tfe "No"; estadd scalar nst = round(e(N),10);
qui eststo: reg Y T1 T2 $spec3 i.sch_id if cbyrace3==1 & sample==1, cluster(sch_id);
estadd local tc "Yes"; estadd local ss "Yes"; estadd local gpa "Yes"; 
estadd local sfe "Yes"; estadd local tfe "No"; estadd scalar nst = round(e(N),10);
esttab, keep(T1 T2);
esttab using $tables\table2.tex, replace label collabels(none) 
nomtitles mgroups("All Students" "White" "Black", pattern(1 0 0 0 0 0 0 0 0 1 1) prefix(\multicolumn{@span}{c}{) suffix(}) span) 
keep(T1 T2) cells(b(fmt(2) star) se(fmt(2) par)) starlevels(* 0.10 ** 0.05 *** 0.01) noobs 
stats(tc ss gpa sfe tfe nst r2 r2_a, fmt(0 0 0 0 0 0 2 2) labels("Teacher Controls" "Student SES" "9th Grade GPA" "School FE" 
"Teacher Dyad FE" "Observations" " $ R^2 $ " "Adjusted $ R^2 $")) 
title("OLS Estimates of Effect of Expectations on Educational Attainment" 
\label{table3});

save $data\edex_data_analytic, replace;

drop if f3attainment<=1 | f3attainment>=7
/* Replicates Table S9 : OLS Estimates of Effect of Expectations on Educational Attainment */;

eststo clear;
qui eststo: reg Y T1 if sample, cluster(sch_id);
estadd local tc "No"; estadd local ss "No"; estadd local gpa "No"; 
estadd local sfe "No"; estadd local tfe "No"; estadd scalar nst = round(e(N),10);
qui eststo: reg Y T2  if sample, cluster(sch_id);
estadd local tc "No"; estadd local ss "No"; estadd local gpa "No"; 
estadd local sfe "No"; estadd local tfe "No"; estadd scalar nst = round(e(N),10);
qui eststo: reg Y T1 T2 if sample, cluster(sch_id);
estadd local tc "No"; estadd local ss "No"; estadd local gpa "No"; 
estadd local sfe "No"; estadd local tfe "No"; estadd scalar nst = round(e(N),10);
qui eststo: reg Y T1 T2 $spec1 if sample, cluster(sch_id);
estadd local tc "Yes"; estadd local ss "No"; estadd local gpa "No"; 
estadd local sfe "No"; estadd local tfe "No"; estadd scalar nst = round(e(N),10);
qui eststo: reg Y T1 T2 $spec2 if sample, cluster(sch_id);
estadd local tc "Yes"; estadd local ss "Yes"; estadd local gpa "No"; 
estadd local sfe "No"; estadd local tfe "No"; estadd scalar nst = round(e(N),10);
qui eststo: reg Y T1 T2 $spec3 if sample, cluster(sch_id);
estadd local tc "Yes"; estadd local ss "Yes"; estadd local gpa "Yes"; 
estadd local sfe "No"; estadd local tfe "No"; estadd scalar nst = round(e(N),10);
qui eststo: reg Y T1 T2 $spec3 if sample, a(sch_id) cluster(sch_id);
estadd local tc "Yes"; estadd local ss "Yes"; estadd local gpa "Yes"; 
estadd local sfe "Yes"; estadd local tfe "No"; estadd scalar nst = round(e(N),10);
qui eststo: reghdfe Y T1 T2 $spec3 if sample, a(tidmth tideng) cluster(sch_id);
estadd local tc "Yes"; estadd local ss "Yes"; estadd local gpa "Yes"; 
estadd local sfe "No"; estadd local tfe "Yes"; estadd scalar nst = round(e(N),10);
capture drop sample1;
gen sample1 = e(sample);
qui eststo: reghdfe Y T1 T2 $spec3 if sample==1 & sample1==1, a(sch_id) cluster(sch_id);
estadd local tc "Yes"; estadd local ss "Yes"; estadd local gpa "Yes"; 
estadd local sfe "Yes"; estadd local tfe "No"; estadd scalar nst = round(e(N),10);
qui eststo: reg Y T1 T2 $spec3 i.sch_id if cbyrace6==1 & sample==1, cluster(sch_id);
estadd local tc "Yes"; estadd local ss "Yes"; estadd local gpa "Yes"; 
estadd local sfe "Yes"; estadd local tfe "No"; estadd scalar nst = round(e(N),10);
qui eststo: reg Y T1 T2 $spec3 i.sch_id if cbyrace3==1 & sample==1, cluster(sch_id);
estadd local tc "Yes"; estadd local ss "Yes"; estadd local gpa "Yes"; 
estadd local sfe "Yes"; estadd local tfe "No"; estadd scalar nst = round(e(N),10);
esttab, keep(T1 T2);
esttab using $tables\table_s9.tex, replace label collabels(none) 
nomtitles mgroups("All Students" "White" "Black", pattern(1 0 0 0 0 0 0 0 0 1 1) prefix(\multicolumn{@span}{c}{) suffix(}) span) 
keep(T1 T2) cells(b(fmt(2) star) se(fmt(2) par)) starlevels(* 0.10 ** 0.05 *** 0.01) noobs 
stats(tc ss gpa sfe tfe nst r2 r2_a, fmt(0 0 0 0 0 0 2 2) labels("Teacher Controls" "Student SES" "9th Grade GPA" "School FE" 
"Teacher Dyad FE" "Observations" " $ R^2 $ " "Adjusted $ R^2 $")) 
title("OLS Estimates of Effect of Expectations on Educational Attainment" 
\label{table3});








